--check if this section is completed; if yes, show the check mark
if short name of this card is "blank" then pass closeCard
send checkCompletion to this card
if the result is empty then
set icon of bg btn ("check" & short name of this cd) to smallHollowCheck
put TRUE into gCardFinished
else
set icon of bg btn ("check" & short name of this cd) to 0
put FALSE into gCardFinished
end if
pass closeCard
end closeCard
on BuildIt4
global gtheapp
go cd "app"
put empty into gtheApp
put empty into bg fld "input"
if (hilite of btn "Information Management") and ((hilite of btn "local databases") or (hilite of btn "host/mainframe access")) then
put "• Application" & return after gtheApp
send Build1 to this card
end if
if (hilite of btn "Presentations") and ((hilite of btn "overheads") or (hilite of btn "multimedia") or (hilite of btn "slides")) then
put "• Application" & return after gtheApp
send Build2 to this cd
end if
if (hilite of btn "Productivity") and ((hilite of btn "accounting") or (hilite of btn "administrative") or (hilite of btn "electronic mail") or (hilite of btn "financial analysis") or (hilite of btn "forms") or (hilite of btn "project management") or (hilite of btn "word processing")) then
put "• Application" & return after gtheApp
send Build3 to this cd
end if
if (hilite of btn "Programming") and ((hilite of btn "end-user programming") or (hilite of btn "MIS/in-house programming")) then
put "• Application" & return after gtheApp
send Build4 to this cd
end if
if (hilite of btn "Publishing") and ((hilite of btn "books") or (hilite of btn "graphic design") or (hilite of btn "magazines") or (hilite of btn "newspapers") or (hilite of btn "collateral") or (hilite of btn "proposals/reports") or (hilite of btn "training/reference") or (hilite of btn "technical documents")) then
put "• Application" & return after gtheApp
send Build5 to this cd
end if
if (hilite of btn "Scientific Research") and ((hilite of btn "academic research") or (hilite of btn "chemistry") or (hilite of btn "lab data") or (hilite of btn "math/stats") or (hilite of btn "simulation modeling")) then
put "• Application" & return after gtheApp
send Build6 to this cd
end if
if (hilite of btn "Technical Markets") and ((hilite of btn "engineering") or (hilite of btn "manufacturing")) then
put "• Application" & return after gtheApp
send Build7 to this cd
end if
repeat with i = 1 to the number of lines in gtheapp
if last char of line i of gtheapp is "," then delete last char of line i of gtheapp
end repeat
put gtheapp into bg fld input
end BuildIt4
on Build1
global gtheApp,gNum
put "Information Management" & return after gtheapp
put "• application level 2" & return &"newspapers" & return & "• application level 3" & return after gtheapp
put the number of cd btn "newspapers" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "collateral") then
put "• application level 2" & return &"collateral" & return & "• application level 3" & return after gtheapp
put the number of cd btn "collateral" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "proposals/reports") then
put "• application level 2" & return &"proposals/reports" & return & "• application level 3" & return after gtheapp
put the number of cd btn "proposals/reports" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "training/reference") then
put "• application level 2" & return &"training/reference" & return & "• application level 3" & return after gtheapp
put the number of cd btn "training/reference" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "technical documents") then
put "• application level 2" & return &"technical documents" & return & "• application level 3" & return after gtheapp
put the number of cd btn "technical documents" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
end Build5
on Build6
global gtheapp,gNum
put "Scientific Research" & return after gtheapp
if (hilite of cd btn "chemistry") then
put "• application level 2" & return &"chemistry" & return & "• application level 3" & return after gtheapp
put the number of cd btn "chemistry" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "lab data") then
put "• application level 2" & return &"lab data" & return & "• application level 3" & return after gtheapp
put the number of cd btn "lab data" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "math/stats") then
put "• application level 2" & return &"math/stats" & return & "• application level 3" & return after gtheapp
put the number of cd btn "math/stats" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "simulation modeling") then
put "• application level 2" & return &"simulation modeling" & return & "• application level 3" & return after gtheapp
put the number of cd btn "simulation modeling" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "academic research") then
put "• application level 2" & return &"academic research" & return & "• application level 3" & return after gtheapp
put the number of cd btn "academic research"into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
end Build6
on Build7
global gtheapp,gNum
put "Technical Markets" & return after gtheapp
if (hilite of cd btn "engineering") then
put "• application level 2" & return &"engineering" & return & "• application level 3" & return after gtheapp
put the number of cd btn "engineering" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
if (hilite of cd btn "manufacturing") then
put "• application level 2" & return &"manufacturing" & return & "• application level 3" & return after gtheapp
put the number of cd btn "manufacturing" into gNum
put line gNum of cd fld sflist into theline
checkline theline
put return after gtheapp
end if
end Build7
on checkline theline
global gtheapp,gNum
if first item of theline contains "Other" then
get first item of theline
delete first word of it
put it into someOther
put "allsfware" & gNum into temp
put cd fld temp into theline
repeat with i = 1 to the number of lines in theline
if first char of line i of theline is "£" then
put line i of theline into theword
delete first char of theword
if theword contains "Other" then put theword & someOther & "," after gtheapp
else put theword & "," after gtheapp
end if
end repeat
else
repeat with i = 1 to the number of items in theline
if first char of item i of theline is "£" then
put item i of theline into theword
delete first char of theword
put theword & "," after gtheapp
end if
end repeat
end if
end checkline
on MakeList theline
global gtheLine
put theline into gtheLine
put line theline of cd fld sflist into thelist
put empty into cd fld sfware
if first item of thelist contains "Other" then
delete first item of thelist
end if
repeat with i = 1 to the number of items in thelist
set cursor to busy
put item i of thelist & return after cd fld sfware
end repeat
end MakeList
on hideSpecifics
set cursor to watch
lock screen
hide btn "Local Databases"
hide btn "Host/Mainframe Access"
hide btn "Overheads"
hide btn "Multimedia"
hide btn "Slides"
hide btn "Accounting"
hide btn "Administrative"
hide btn "Electronic Mail"
hide btn "Financial Analysis"
hide btn "Forms"
hide btn "Project Management"
hide btn "Word Processing"
hide btn "End-User Programming"
hide btn "MIS/In-house Programming"
hide btn "Books"
hide btn "Graphic Design"
hide btn "Magazines"
hide btn "Newspapers"
hide btn "Collateral"
hide btn "Proposals/Reports"
hide btn "Training/Reference"
hide btn "Technical Documents"
hide btn "Chemistry"
hide btn "Lab Data"
hide btn "Math/Stats"
hide btn "Simulation Modeling"
hide btn "Academic Research"
hide btn "Manufacturing"
hide btn "Engineering"
end hideSpecifics
on resetSpecifics
set cursor to watch
lock screen
set the hilite of btn "Local Databases" to false
set the hilite of btn "Host/Mainframe Access" to false
set the hilite of btn "Overheads" to false
set the hilite of btn "Multimedia" to false
set the hilite of btn "Slides" to false
set the hilite of btn "Accounting" to false
set the hilite of btn "Administrative" to false
set the hilite of btn "Electronic Mail" to false
set the hilite of btn "Financial Analysis" to false
set the hilite of btn "Forms" to false
set the hilite of btn "Project Management" to false
set the hilite of btn "Word Processing" to false
set the hilite of btn "End-User Programming" to false
set the hilite of btn "MIS/In-house Programming" to false
set the hilite of btn "Books" to false
set the hilite of btn "Graphic Design" to false
set the hilite of btn "Magazines" to false
set the hilite of btn "Newspapers" to false
set the hilite of btn "Collateral" to false
set the hilite of btn "Proposals/Reports" to false
set the hilite of btn "Training/Reference" to false
set the hilite of btn "Technical Documents" to false
set the hilite of btn "Chemistry" to false
set the hilite of btn "Lab Data" to false
set the hilite of btn "Math/Stats" to false
set the hilite of btn "Simulation Modeling" to false
set the hilite of btn "Academic Research" to false
set the hilite of btn "Manufacturing" to false
set the hilite of btn "Engineering" to false
unlock screen
end resetSpecifics
on resetShowing
repeat with i = 1 to 29
put 0 into line i of cd fld "showing"
end repeat
end resetShowing
on resetRadios
set cursor to watch
lock screen
set the hilite of btn "Information Management" to false
set the hilite of btn "Presentations" to false
set the hilite of btn "Productivity" to false
set the hilite of btn "Programming" to false
set the hilite of btn "Publishing" to false
set the hilite of btn "Scientific Research" to false
set the hilite of btn "Technical Markets" to false
end resetRadios
on HideShow whichfield
global gwhichone,gwhichfield
put whichfield into gwhichfield
put "sfware" into gwhichone
lock screen
if visible of cd btn "reset" then
hide cd btn "reset"
hide cd btn "done"
hide cd btn "cancel"
hide cd btn "bigmask"
hide cd btn "backmask"
hide cd fld "sfware"
put "allsfware" & whichfield into temp
hide cd fld temp
hide cd btn "all software"
hide cd btn "prev list"
hide cd fld "instructions"
hide cd btn 46
else
show cd btn "reset"
show cd btn "done"
show cd btn "cancel"
show cd btn "bigmask"
show cd btn "backmask"
show cd fld "sfware"
show cd btn "all software"
show cd fld "instructions"
get offset("£",cd fld "instructions")
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
--if line whichfield of cd fld "showing" is 1 then send mouseup to cd btn "all software"
end if
unlock screen
end HideShow
on checkCompletion
global gApp
put "not done" into done
put false into gApp
-------------
if (hilite of btn "Information Management") then
if (hilite of cd btn "Local Databases") or (hilite of cd btn "Host/Mainframe access") then
put empty into done
put true into gApp
end if
end if
-------------
if (hilite of btn "Presentations") then
if (hilite of cd btn "Overheads") or (hilite of cd btn "Slides") or (hilite of cd btn "multimedia") then
put empty into done
put true into gApp
end if
end if
-------------
if (hilite of btn "Productivity") then
if (hilite of cd btn "accounting") or (hilite of cd btn "administrative") or (hilite of cd btn "electronic mail") or (hilite of cd btn "financial analysis") or (hilite of cd btn "forms") or (hilite of cd btn "project management") or (hilite of cd btn "word processing") then
put empty into done
put true into gApp
end if
end if
-------------
if (hilite of btn "Programming") then
if (hilite of cd btn "end-user programming") or (hilite of cd btn "mis/in-house programming") then
put empty into done
put true into gApp
end if
end if
-------------
if (hilite of btn "Publishing") then
if (hilite of cd btn "books") or (hilite of cd btn "graphic design") or (hilite of cd btn "magazines") or (hilite of cd btn "newspapers")or (hilite of cd btn "collateral") or (hilite of cd btn "proposals/reports") or (hilite of cd btn "training/reference") or (hilite of cd btn "technical documents") then
put empty into done
put true into gApp
end if
end if
-------------
if (hilite of btn "Scientific Research") then
if (hilite of cd btn "chemistry") or (hilite of cd btn "lab data") or (hilite of cd btn "math/stats") or (hilite of cd btn "simulation modeling") or (hilite of cd btn "academic research") then
put empty into done
put true into gApp
end if
end if
-------------
if (hilite of btn "Technical Markets") then
if (hilite of cd btn "engineering") or (hilite of cd btn "manufacturing") then
put empty into done
put true into gApp
end if
end if
if gapp then
put 1 into line 1 of cd fld "status" of cd "intro"
else
put 0 into line 1 of cd fld "status" of cd "intro"
end if
return done
end checkCompletion
on toggleCheck
if icon of bg btn checkapp is 0 then
set icon of bg btn checkapp to "smallHollowCheck"
else
set icon of bg btn checkapp to 0
end if
end toggleCheck
on resetCard
lock screen
set cursor to watch
resetspecifics
resetradios
hidespecifics
resetShowing
show cd btn mask
hide cd btn "reset"
hide cd btn "done"
hide cd btn "cancel"
hide cd btn "bigmask"
hide cd btn "backmask"
hide cd fld "sfware"
hide cd btn "all software"
hide cd btn "prev list"
hide cd fld "instructions"
ZapChecks
hide cd btn 46
repeat with i = 1 to 29
put "allsfware"&i into temp
hide cd fld temp
end repeat
unlock screen
end resetCard
on ZapLine theline
put line theline of cd fld sflist into thelist
put 1 into start
repeat
get offset("£",char start to the number of chars in thelist of thelist)
if it is 0 then exit repeat
else put "‚Ñ¢" into char it + start - 1 of thelist
put it into start
end repeat
put thelist into line theline of cd fld sflist
put "allsfware" & theline into temp
put cd fld "allsfware" into cd fld temp
end ZapLine
on ZapChecks
global gwhichone
put cd fld sflist into thelist
put 1 into start
repeat
get offset("£",char start to the number of chars in thelist of thelist)
if it is 0 then exit repeat
else put "‚Ñ¢" into char it + start - 1 of thelist
put it into start
end repeat
put 1 into start
repeat
get offset("Other",char start to the number of chars in thelist of thelist)
put it + start into start
if it is 0 then
exit repeat
else
put number of lines in char 1 to start of thelist into lineNum
get first item of line lineNum of thelist
if it contains "Other" then
delete first item of line lineNum of thelist
end if
end if
end repeat
put thelist into cd fld sflist
put cd fld "allsfware" into thelist
repeat with i = 1 to 29
put "allsfware" & i into gwhichone
put thelist into cd fld gwhichone
end repeat
end Zapchecks
-- part 33 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=161 top=44 right=66 bottom=402
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label1
-- part 52 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=165 top=229 right=248 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Local Databases
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
lock screen
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
unlock screen
else
set hilite of me to false
ZapChecks
end if
end mouseUp
-- part 53 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=165 top=211 right=230 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Host/Mainframe Access
----- HyperTalk script -----
on mouseUp
if not hilite of me then
lock screen
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
unlock screen
else
set hilite of me to false
ZapChecks
end if
end mouseUp
-- part 56 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=229 right=248 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Overheads
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 55 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=211 right=230 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multimedia
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 54 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=247 right=266 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Slides
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 69 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=211 right=230 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Accounting
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 70 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=229 right=248 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Administrative
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 71 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=247 right=266 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Electronic Mail
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 72 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=265 right=284 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Financial Analysis
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 73 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=283 right=302 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Forms
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 74 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=301 right=320 bottom=333
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Project Management
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 75 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=328 top=211 right=230 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Word Processing
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 57 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=211 right=230 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: End-User Programming
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 58 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=229 right=248 bottom=370
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: MIS/In-house Programming
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 44 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=211 right=230 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Books
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 45 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=247 right=266 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Graphic Design
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 46 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=265 right=284 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Magazines
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 47 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=283 right=302 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Newspapers
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 48 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=229 right=248 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Collateral
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 49 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=301 right=320 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Proposals/Reports
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 50 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=328 top=229 right=248 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Training/Reference
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 51 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=328 top=211 right=230 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Technical Documents
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 85 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=211 right=230 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Academic Research
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 60 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=229 right=248 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Chemistry
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 61 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=247 right=266 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lab Data
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 59 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=265 right=284 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Math/Stats
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 76 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=164 top=283 right=302 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Simulation Modeling
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 68 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=165 top=211 right=230 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Engineering
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 66 (button)
-- low flags: 80
-- high flags: 8005
-- rect: left=165 top=229 right=248 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Manufacturing
----- HyperTalk script -----
on mouseUp
lock screen
if not hilite of me then
set hilite of me to true
MakeList(the number of me)
HideShow(the number of me)
else
set hilite of me to false
ZapChecks
end if
unlock screen
end mouseUp
-- part 35 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=63 right=82 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Information Management
----- HyperTalk script -----
on mouseUp
lock screen
if (not hilite of me) then
hidespecifics
hide cd btn mask
put "Click to specify Information Management’s area(s):" into cd fld "label2"
show btn "Local Databases"
show btn "Host/Mainframe Access"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of btn "Local Databases" to false
set hilite of btn "Host/Mainframe Access" to false
set hilite of me to false
Zapline 1
ZapLine 2
end if
unlock screen
end mouseUp
-- part 36 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=81 right=100 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Presentations
----- HyperTalk script -----
on mouseUp
lock screen
if not (hilite of me) then
hidespecifics
hide cd btn mask
put "Click to specify Presentations’ area(s):" into cd fld "label2"
show btn "Overheads"
show btn "Multimedia"
show btn "Slides"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of me to false
set hilite of btn "Overheads" to false
set hilite of btn "Multimedia" to false
set hilite of btn "Slides" to false
ZapLine 3
zapline 4
zapline 5
end if
unlock screen
end mouseUp
-- part 37 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=99 right=118 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Productivity
----- HyperTalk script -----
on mouseUp
lock screen
if not (hilite of me) then
hidespecifics
hide cd btn mask
put "Click to specify Productivity’s area(s):" into cd fld "label2"
show btn "Accounting"
show btn "Administrative"
show btn "Electronic Mail"
show btn "Financial Analysis"
show btn "Forms"
show btn "Project Management"
show btn "Word Processing"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of me to false
set hilite of btn "Accounting" to false
set hilite of btn "Administrative" to false
set hilite of btn "Electronic Mail" to false
set hilite of btn "Financial Analysis" to false
set hilite of btn "Forms" to false
set hilite of btn "Project Management" to false
set hilite of btn "Word Processing" to false
repeat with i = 6 to 12
Zapline i
end repeat
end if
unlock screen
end mouseUp
-- part 38 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=117 right=136 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Programming
----- HyperTalk script -----
on mouseUp
lock screen
if not (hilite of me) then
hidespecifics
hide cd btn mask
put "Click to specify Programming’s area(s):" into cd fld "label2"
show btn "End-User Programming"
show btn "MIS/In-house Programming"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of me to false
set hilite of btn "End-User Programming" to false
set hilite of btn "MIS/In-house Programming" to false
Zapline 13
zapline 14
end if
unlock screen
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=135 right=154 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Publishing
----- HyperTalk script -----
on mouseUp
lock screen
if not (hilite of me) then
hidespecifics
hide cd btn mask
put "Click to specify Publishing’s area(s):" into cd fld "label2"
show btn "Books"
show btn "Graphic Design"
show btn "Magazines"
show btn "Newspapers"
show btn "Collateral"
show btn "Proposals/Reports"
show btn "Training/Reference"
show btn "Technical Documents"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of me to false
set hilite of btn "Books" to false
set hilite of btn "Graphic Design" to false
set hilite of btn "Magazines" to false
set hilite of btn "Newspapers" to false
set hilite of btn "Collateral" to false
set hilite of btn "Proposals/Reports" to false
set hilite of btn "Training/Reference" to false
set hilite of btn "Technical Documents" to false
repeat with i = 15 to 22
Zapline i
end repeat
end if
unlock screen
end mouseUp
-- part 40 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=153 right=172 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scientific Research
----- HyperTalk script -----
on mouseUp
lock screen
if not( hilite of me) then
lock screen
hidespecifics
hide cd btn mask
put "Click to specify Scientific Research’s area(s):" into cd fld "label2"
show btn "Chemistry"
show btn "Lab Data"
show btn "Math/Stats"
show btn "Simulation Modeling"
show btn "academic research"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of me to false
set hilite of btn "Chemistry" to false
set hilite of btn "Lab Data" to false
set hilite of btn "Math/Stats" to false
set hilite of btn "Simulation Modeling" to false
set hilite of btn "academic research" to false
zapline 23
zapline 24
zapline 25
zapline 26
zapline 27
end if
unlock screen
end mouseUp
-- part 41 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=164 top=171 right=190 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Technical Markets
----- HyperTalk script -----
on mouseUp
lock screen
if not (hilite of me) then
lock screen
hidespecifics
hide cd btn mask
put "Click to specify Technical Markets’ area(s):" into cd fld "label2"
show btn "Manufacturing"
show btn "Engineering"
set the hilite of me to true
else
hidespecifics
show cd btn mask
set hilite of me to false
set hilite of btn "Manufacturing" to false
set hilite of btn "Engineering" to false
Zapline 28
zapline 29
end if
unlock screen
end mouseUp
-- part 43 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=161 top=192 right=212 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Label2
-- part 78 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: bigmask
----- HyperTalk script -----
on mouseUp
beep
end mouseUp
-- part 79 (button)
-- low flags: 80
-- high flags: 0004
-- rect: left=154 top=32 right=327 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: backmask
-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=130 top=174 right=205 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 27081 / 27081
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: groupPointer
-- part 77 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=164 top=190 right=210 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
-- part 80 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sfware
----- HyperTalk script -----
on mouseUp
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 81 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=422 top=299 right=320 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
global gtheLine,gwhichone,gwhichfield,gOther
lock screen
put false into checkme
put cd fld gwhichone into thelist
if gwhichone is "sfware" then
put "allsfware"& gtheline into temp
put cd fld allsfware into cd fld temp
if line gtheline of cd fld sflist contains "Other" then
delete first item of line gtheline of cd fld sflist
end if
repeat with i = 1 to the number of lines in thelist
set cursor to busy
put line i of thelist &"," after newlist
if first char of line i of thelist is "£" then put true into checkme
end repeat
put newlist into line gtheLine of cd fld sflist
--put 0 into line gtheline of cd fld "showing"
else
zapline gtheline
if line gtheline of cd fld sflist contains "Other" then delete first item of line gtheline of cd fld sflist
put "Other" && gOther & "," before line gtheline of cd fld "sflist"
repeat with i = 1 to the number of lines in thelist
set cursor to busy
if first char of line i of thelist is "£" then
put true into checkme
exit repeat
end if
end repeat
set scroll of cd fld gwhichone to 0
-- put 1 into line gtheline of cd fld "showing"
end if
put thelist into cd fld gwhichone
--if checkme then set hilite of cd btn gtheLine to true
--else set hilite of cd btn gtheLine to false
HideShow gwhichfield
unlock screen
end mouseUp
-- part 82 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=352 top=299 right=320 bottom=412
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
global gwhichfield
Hideshow gwhichfield
end mouseUp
-- part 83 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=286 top=299 right=320 bottom=341
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reset
----- HyperTalk script -----
on mouseUp
global gWhichOne
lock screen
set cursor to watch
put cd fld gWhichOne into thelist
put 1 into start
repeat
get offset("£",char start to the number of chars in thelist of thelist)
if it is 0 then exit repeat
else put "‚Ñ¢" into char it + start - 1 of thelist
put it into start
end repeat
put thelist into cd fld gwhichone
unlock screen
end mouseUp
-- part 84 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: sflist
-- part 87 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=177 top=299 right=320 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: All Software
----- HyperTalk script -----
on mouseUp
global gwhichOne,gwhichfield
lock screen
show cd btn "Prev list"
put "allsfware" & gwhichfield into temp
show cd fld temp
put temp into gwhichOne
unlock screen
end mouseUp
-- part 89 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=177 top=299 right=320 bottom=275
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev List
----- HyperTalk script -----
on mouseUp
global gwhichone,gwhichfield,gtheline
put "sfware" into gwhichone
lock screen
put "allsfware" & gwhichfield into temp
hide cd fld temp
hide me
unlock screen
end mouseUp
-- part 90 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=0 top=0 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: allsfware
----- HyperTalk script -----
on mouseUp
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
end if
--
put false into showbtn -- in case there's none
repeat with i = 1 to the number of lines in cd fld "sfware"
get char 1 of line i of me
put it = "£" into showbtn
if showbtn then exit repeat
end repeat
--set visible of cd btn "OK" to showbtn
end mouseUp
-- part 92 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware1
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 93 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware2
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 94 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware3
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 95 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware4
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 96 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware5
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 97 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware6
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 98 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware7
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 99 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware8
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 100 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware9
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 101 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware10
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 102 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware11
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 103 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware12
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 104 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware13
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 105 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware14
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 106 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware15
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 107 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware16
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 108 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware17
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 109 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware18
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 110 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware19
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 111 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware20
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 129 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware21
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 130 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware22
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 131 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware23
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 132 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware24
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 133 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware25
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 134 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware26
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 135 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware27
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 136 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware28
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 137 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=176 top=78 right=293 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware29
----- HyperTalk script -----
on mouseUp
global gOther
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
put it into temp
delete first char of temp
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
if temp = "Other" then
ask "Enter application name."
if it is not empty then
put " (" & it & ")" into gOther
else
put "‚Ñ¢" into char 1 of line lineNum of me
end if
end if
end if
--
get offset("£",me)
if it ≠ 0 then
show cd btn done
hide cd btn 46
else show cd btn 46 --dimmed done
end mouseUp
-- part 138 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=21 top=63 right=292 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware30
----- HyperTalk script -----
on mouseUp
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
end if
--
put false into showbtn -- in case there's none
repeat with i = 1 to the number of lines in cd fld "sfware"
get char 1 of line i of me
put it = "£" into showbtn
if showbtn then exit repeat
end repeat
--set visible of cd btn "OK" to showbtn
end mouseUp
-- part 139 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=7 top=63 right=292 bottom=303
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: allsfware31
----- HyperTalk script -----
on mouseUp
get the clickLoc
get item 2 of it - (top of me)
get it + (scroll of me)
put (it div (textheight of me)) + 1 into lineNum
get line lineNum of me
if it = empty then exit mouseUp
lock screen
get char 1 of line lineNum of me
if it = "£"
then
put "‚Ñ¢" into char 1 of line lineNum of me
else
put "£" into char 1 of line lineNum of me
end if
--
put false into showbtn -- in case there's none
repeat with i = 1 to the number of lines in cd fld "sfware"